UNIVERSITY OF ILLINOIS 
DIGITAL COMPUTER 

LIBRARY ROUTINE X 3 - 222 



TITLE Constant -Listing Auxiliary 

PURPOSE To list constants as they are required in a program to 

avoid manual cross references . 
TYPE Special - input. Used with Library Routine X-l (D.O.I.) 

NUMBER OF WORDS 21 

TEMPORARY STORAGE None - except that of Routine X-l* 
ACCURACY 

DURATION - - 

READ AROUND 85 when the list has more than 28 entries 

DESCRIPTION When a constant is wanted, as for example, "add 3/8 into 

the accumulator", the constant itself is used for the address of the L^ order. 
Library Routine X 3 stores it in the list and furnishes the Lk order with the 
correct address . If the list already has this constant, the constant is not 
stored again but the address of the order refers to the earlier constant. 

To make X 3 more flexible, the constants are written just 
as with Routine X 1,' that is, as order pairs. When a constant is being listed, 
the function digits of the order which refers to it are followed by N. In the 
above example, we can handle 3/8 in two ways: 

L^N 30F00F 

L^N OOF 003750 0000 0000J 

This way of writing constants makes the handling of 
starting values and end conditions a simple matter. Consider the following 
example . 
EXAMPLE: Divide by 10 each of the numbers N(l00 + i) for i = to 99 



L5N 7J100F ^OlOOF 

1 kQ 2L 

50N 00F001000 0000 0000J 

2 7J (100 + i)F 
kO (100 + i)F 

3 L5 2L 

L4N 001F 001F 



- 2 - 

k kO 2L 

LON LJ200F 40200F 
5 32 1L 

NOTES (a) Zero cannot be listed as a constant 

(b) The list is started at l6. This nay be changed by 
adjusting the last order of the subroutine appropriately, It is now 00 l6F 

(c) The tape contains, 00 9^1K* spaces , Routine X»3° X*-3 
'may be placed at any desired place in the store. 

(d) The computer room tape has the stop 2h 999N at its end. 

(e) One word of the D,0«I* is changed and control detoured 
through Routine X~3. This will not affect any routine unless Routine X~3 is 
overwritten and the D-0.I- not read in again. 

(f ) Post mortem CI may not be used with this routine* 

(g) This routine requires that a sufficient amount of the 
memory be cleared initially to provide room for the stored constants • 



DAT E June 9, 1953, Bev.lO/15/56 
PROGRAMMED B Y D. <!■> Wheeler 
REVISED B Y G. Belford 
APPROVED B YjQF. puJcK^\^ 
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00 9^1K 











L5 2L 
^0 1012F 




After D.O.I. 




1 


50 3L 
26 999F 








2 


26 3L 
00 IF 




New word for D.O.I. 




3 


00 F 
00 L 








k 


00 F 
26 L 
26 IN 











00 F 
00 F 




Temporary Store 




1 


1. /"\ -l -T-I 

*+V .Li? 

22 7L 




Temporary alteration for D.O.I. 




2 


40 IF 
LI 1012F 




D.O.I. word l6 to replace 1L- 




3 


k2 IF 
L3 F 




Store address 




k 


36 5L 
22 IF 




N follows function digits 
Obey order 




5 


L5 IF 
40 L 




Store word 




6 


L5 1L 
40 1018F 




— Make l/2 word 




7 


26 1021F 
F5 1018F 




~— Make l/2 word 




8 


22 6L 
50 IF 




Constant to Q 




9 


L5 2L 
40 1018F 




— Restore D.O.I. 




10 


L5 L 

kO IF 




— Replace order 





X 3 
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X 3 



11 
12 

13 
14 

15 
16 

17 
18 

19 
20 



L5 20L 
42 IF 
42 13L 
42 19L 
42 15L 
L3 ( )F 
36 19L 
SI F 
SI F 
L4 ( )F 
40 F 
L3 F 
36 19L 
F5 19L 
22 11L 
S5 F 
25 F 
40 ( )F 
27 1017F 
00 16F 



— Preset list address. 



~~ If list location contains zero 

or new entry 
is equal to 
previous entry 

— Otherwise encrease list address and cycle , 



— Store constant 



